home *** CD-ROM | disk | FTP | other *** search
/ Macademic for Students & Teachers / Macademic for Students and Teachers (Quantum Leap)(1992).iso / Writing / Story Writer / card_3591.txt < prev    next >
Text File  |  1987-12-28  |  4KB  |  182 lines
  1. -- card: 3591 from stack: in
  2. -- bmap block id: 7152
  3. -- flags: 0000
  4. -- background id: 2747
  5. -- name: show story
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 01
  10. -- high flags: 0004
  11. -- rect: left=109 top=30 right=61 bottom=500
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 36
  16. -- text size: 18
  17. -- style flags: 0
  18. -- line height: 24
  19. -- part name: title
  20.  
  21.  
  22. -- part 1 (field)
  23. -- low flags: 01
  24. -- high flags: 0007
  25. -- rect: left=108 top=70 right=332 bottom=503
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 192
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: final
  34.  
  35.  
  36. -- part 3 (button)
  37. -- low flags: 00
  38. -- high flags: 8003
  39. -- rect: left=4 top=309 right=331 bottom=104
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Quit
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   answer "Quit HyperCard or go Home?" with "Cancel" or "Quit" or "Go Home"
  51.   if it is "Go Home" then
  52.     go home
  53.     exit mouseUp
  54.   end if
  55.   if it is "cancel" then exit mouseUp
  56.   else visual effect zoom in
  57.   domenu "Quit Hypercard"
  58. end mouseUp
  59.  
  60.  
  61.  
  62.  
  63. -- part 4 (button)
  64. -- low flags: 00
  65. -- high flags: 8003
  66. -- rect: left=4 top=174 right=196 bottom=104
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Instructions
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   push card
  78.   visual effect iris open
  79.   go to card "instructions"
  80. end mouseUp
  81.  
  82.  
  83. -- part 5 (button)
  84. -- low flags: 00
  85. -- high flags: 8003
  86. -- rect: left=4 top=148 right=170 bottom=104
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: New Story
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   answer "You want to write a new story?" with "No" or "Yes"
  98.   If it is "yes" then
  99.     get empty
  100.     put it into card field "title" of card "title"
  101.     put it into card field "character" of card "title"
  102.     put it into card field "theme" of card "title"
  103.     go to card "title"
  104.   end if
  105. end mouseUp
  106.  
  107.  
  108.  
  109. -- part 7 (button)
  110. -- low flags: 00
  111. -- high flags: 8003
  112. -- rect: left=4 top=122 right=144 bottom=104
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Keep Story
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   beep 2
  124.   answer "Warning:  This may delete another story!" with "Instructions" or "Go ahead‚Ķ" or "Then stop!"
  125.   if it is "Instructions" then
  126.     push card
  127.     visual effect iris open
  128.     go to card "K"
  129.     exit mouseUp
  130.   end if
  131.   if it is "Then stop!" then exit mouseUp
  132.   answer "Save this story as..." with "Story 1" or "Story 2" or "Story 3"
  133.   put card field "title" into field "title" of card it
  134.   put card field "final" into field "story" of card it
  135.   put the long date into field "date" of card it
  136.   visual effect venetian blinds
  137.   go to card it
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part 8 (button)
  143. -- low flags: 00
  144. -- high flags: 0000
  145. -- rect: left=57 top=56 right=97 bottom=101
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: 
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   visual effect wipe left
  157.   go to card id 5009
  158. end mouseUp
  159.  
  160.  
  161.  
  162.  
  163. -- part 9 (button)
  164. -- low flags: 00
  165. -- high flags: 0000
  166. -- rect: left=8 top=57 right=98 bottom=52
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: 
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   visual effect wipe right
  178.   go to card id 6329
  179. end mouseUp
  180.  
  181.  
  182.